home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / baha module (.txt) next >
Commodore BASIC  |  2022-09-20  |  2KB  |  58 lines
  1. 1 goto500
  2. 85 pokev-22,19:pokev+k-22,10:pokev,21:pokev+k,0:v=v+22:pokesn,200:c=1
  3. 86 ifv=7904thenprintf$;"[145]aaaa":goto300
  4. 87 return
  5. 110 forq=1to4:poke7924,21+q
  6. 115 forw=1to230
  7. 120 poke646,9:printd$;mid$(b$(q),w,22)
  8. 122 poke38622,wc:poke38624,wc
  9. 125 ifca<26thenprintd$;"[145]";mid$(ca$,ca,23):goto130
  10. 127 ifpeek(7920)=0thenca=1
  11. 130 print""spc(x+22)"anoa":pokesn,200
  12. 160 ifdthenprintf$;"[145]fghi":print"[144]aakak":wc=9:d=d-1:b=1:goto180
  13. 165 ifbthenprintf$;"[145]aaaa":wc=8:b=0
  14. 170 printf$;"fghi":ifpeek(197)=32thend=6
  15. 175 ifpeek(7904)=1goto300
  16. 177 ifpeek(7883)=10thengosub250
  17. 180 readx:ifx=77thenprintchr$(19)spc(20)"aaa":restore:goto180
  18. 182 print""spc(x+22)"almaa"
  19. 185 ifx=3thenifpeek(36878)=26thengosub85:goto189
  20. 188 pokesn,0:ifcthenpokesv,26:pokev-22,19:pokev+k-22,10:v=7750:c=0
  21. 189 ifpeek(197)=63thenifd=0thenpokesv,42:c=1:ifx=3thenreadx:goto189
  22. 190 ca=ca+1
  23. 199 next:next
  24. 200 print"[147]":poke36869,240:poke36867,peek(36867)and254
  25. 210 print"congratulations":end
  26. 250 fori=16to31step.3:pokesv,i:pokesn,249
  27. 254 fori=16to31step.3:pokesv,i:pokesn,249
  28. 260 ifi>24thenpoke7860,20:poke7860+k,0
  29. 280 fort=1to40:next
  30. 285 next:fort=1to2000:next
  31. 295 poke7860,1:pokesn,0:pokesv,26:return
  32. 300 pokesv,31:pokesn,200
  33. 305 pokesv,31:pokesn,200
  34. 310 printf$;"afghi"
  35. 311 poke38622,9
  36. 320 fort=1to200:next
  37. 330 fors=31to16step-1
  38. 332 pokesv,s:poke36876,0:poke36877,135
  39. 340 printf$;"aaaaaa[157][157][157]apqr[145][157][144]t"
  40. 360 fort=1to100:next
  41. 370 next:poke36877,0:run
  42. 480 data19,19,18,18,17,17,16,16,15,15,14,14,13,13,12,12,11,10,10
  43. 481 data9,9,8,8,7,7,6,6,5,5,4,4,3,3,3,3,3,3,3,3,3,2,1,0,-1,-2,77
  44. 500 poke36869,255:poke36867,peek(36867)or1:poke36879,31
  45. 510 k=30720
  46. 580 a1$="ccdedcbcdedcbde@edcde@edbddcbcdedaaaadcbcbcdedbdede@ecbcbccbcdc"
  47. 582 a2$="ccdedcbcdedcbde@edcdcbaaaadcbcdededede@eddcdedcbcdedcbde@edcded"
  48. 583 a3$="ccaaaabcde@edde@edcdcbaaaadcbcdedededaaaabcdedbde@ececbcbccbcdc"
  49. 585 b$(1)=a1$+a2$+a1$+a2$:b$(2)=a1$+a2$+a1$+a2$
  50. 586 b$(3)=a1$+a2$+a3$+a2$:b$(4)=a1$+a3$+a2$+a3$
  51. 590 d$="":f$=left$(d$,10)+""
  52. 592 ca$="ajaa"
  53. 594 s$="@@@@@@@@@@@@@@@@@@@@@@"
  54. 595 poke646,10:print"[147]";d$;s$;s$;s$:wc=8:ca=26:x=19:v=7728:sv=36878:sn=36877
  55. 597 print"":fori=1to8:print"aaaas":next:pokesv,26
  56. 598 printf$;"fghi"
  57. 599 goto110
  58.